100 REM BEISPIEL FUER EINE KLEINE
101 REM DIRECTORY-MANIPULATION:
102 REM SCRATCH-SCHUTZ EINZELNER FILES
103 REM NACH ANZEIGE DES FILENAMENS:
104 REM J = SCHUETZE DIES FILE
105 REM N = WEITER ZUM NAECHSTEN FILE
106 REM E = ENDE
107 REM ACHTUNG !!! "SCHUETZT" AUCH
108 REM SCHON GESCRATCHTE FILES WENN
109 REM VERLANGT, STELLT SIE ABER NICHT
110 REM WIEDER HER !!!
111 REM SCRATCH-SCHUTZ WIRD IM DIRECT.
112 REM DURCH EIN '<' HINTER DEM
113 REM FILETYP ANGEZEIGT. NAEHERES
114 REM SIEHE TABELLE FOLGE 1 !!!
115 REM ACHTUNG !!! NUR ZUSAMMEN MIT
116 REM DEN UNTERPROGRAMMEN 1 & 2
117 REM LAUFFAEHIG !!!
118 :
119 :
120 MM=0
130 MM=MM+1:DD$="":GOSUB1000
140 IF DD$=NN$THENEND
150 PRINTMID$(DD$,4,16):INPUTAA$
160 IF AA$="E"THEN END
170 IF AA$="N"THEN 130
180 HH$=LEFT$(DD$,1)
190 HH$=CHR$(ASC(HH$)OR2^6)
200 DD$=HH$+RIGHT$(DD$,29)
210 GOSUB2000
220 GOTO 130
230 END